carambola <- c("abacaxi","beterraba")
salada<- c("beringela", "batata")
